home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 43.zip / Superbase pro 2.1 disk 2.adf / clientdeps.sbp < prev    next >
Text File  |  1987-12-09  |  1KB  |  46 lines
  1. OPEN FILE "Clients"
  2. OPEN FILE "Deposits"
  3.  
  4. REQUEST "REPORT TO PRINTER ?","",1,a%
  5. IF a% THEN PRINT;
  6. REPORT Amount.Deposits
  7. BEFORE REPORT
  8. END REPORT
  9.  
  10. AFTER REPORT
  11. ?  ATTR OFF ;@5 "Total Amount";@27 "Highest Deposit";@47 "Smallest Deposit"
  12. ? @4 "£";&15 SUM Amount.Deposits;@26 "£";&15 MAX Amount.Deposits;@46 "£";&15 MIN Amount.Deposits
  13. ? 
  14. END REPORT
  15.  
  16. HEADING
  17. ? 
  18. ?  ATTR OFF ; BF ; UL ;@23 "Clients' Deposits on ";&12 TODAY 
  19. ? 
  20. ?  BF OFF ; UL OFF ;@2 "Date";@21 "Bank";@40 "Account";@61 "Amount Deposited"
  21. ? 
  22. END HEADING
  23.  
  24. GROUP Lastname.Clients,Amount.Deposits
  25. BEFORE GROUP Lastname.Clients
  26. ?  ATTR OFF ;@3 "Deposits for client"; BF ;@23 Firstname.Clients;Lastname.Clients
  27. ? 
  28. END GROUP 
  29.  
  30. AFTER GROUP Lastname.Clients
  31. ? 
  32. ?  ATTR OFF ;@20 "Total deposit for";@38 &21 GROUP ;@61 "£";&15 SUM Amount.Deposits
  33. ? 
  34. END GROUP 
  35.  
  36. GROUP Date.Deposits
  37. BEFORE GROUP Date.Deposits
  38. END GROUP 
  39.  
  40. AFTER GROUP Date.Deposits
  41. END GROUP 
  42.  
  43. SELECT  ATTR OFF ;Date.Deposits;@20 Bank.Deposits;@40 Account.Deposits;@61 Amount.Deposits
  44. WHERE Lastname.Deposits = Lastname.Clients ASK
  45. ORDER Lastname.Clients,Date.Deposits ASK
  46.